home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 20
/
Cream of the Crop 20 (Terry Blount) (1996).iso
/
program
/
dbw10s30.zip
/
CREATEST.FRM
< prev
next >
Wrap
Text File
|
1995-04-20
|
3KB
|
98 lines
VERSION 2.00
Begin Form Form1
BorderStyle = 1 'Fixed Single
Caption = "Create database - test project"
ClientHeight = 2670
ClientLeft = 1095
ClientTop = 1485
ClientWidth = 5250
Height = 3075
Left = 1035
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2670
ScaleWidth = 5250
Top = 1140
Width = 5370
Begin CommandButton Exit
Cancel = -1 'True
Caption = "E&xit"
Height = 375
Left = 2625
TabIndex = 3
Top = 2070
Width = 1380
End
Begin CommandButton Create
Caption = "&Create"
Default = -1 'True
Height = 375
Left = 1050
TabIndex = 2
Top = 2070
Width = 1380
End
Begin TextBox DBName
Height = 285
Left = 2310
TabIndex = 1
Text = "mydata.mdb"
Top = 135
Width = 2430
End
Begin Label Label3
Caption = "Create a VB module from an existing database using DB2VB Wizard. Then add the generated .bas module (and DBCREATE.BAS if you chose that option) to this project and run it."
Height = 915
Left = 105
TabIndex = 5
Top = 945
Width = 4740
End
Begin Label Label2
Caption = "How to use this project:"
Height = 240
Left = 105
TabIndex = 4
Top = 675
Width = 4530
End
Begin Label Label1
Caption = "&Database to create:"
Height = 240
Left = 105
TabIndex = 0
Top = 180
Width = 2010
End
End
Option Explicit
Sub Create_Click ()
MousePointer = 11 ' Hourglass
' !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
' If the next statement produces an ERROR:
' 1) First generate a new .bas module using DB2VB Wizard
' and then add the generated module to this project
' 2) If still in error, check the generated module
' for the name of the function
If Create_Database(DBName) Then
' !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
MsgBox "Database created successfully"
End
End If
MousePointer = 0 ' Default
End Sub
Sub Exit_Click ()
Unload Me
End Sub